home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / version / vbver32 / vbver32.bas < prev    next >
BASIC Source File  |  1995-12-28  |  3KB  |  75 lines
  1. Attribute VB_Name = "vbVer"
  2. '************************************************
  3. 'VBVer32
  4. 'Sample of System Information functions available
  5. 'in the Win32 API.
  6. 'By David Warren
  7. 'MMC SoftwareÖ
  8. 'CompuServe: 72500,1406
  9. 'davidw@mmcsoftware.com
  10. '*************************************************
  11. 'Now in the Windows Networking Forum on CompuServe:
  12. ' GO WINETA and find us in Section 18
  13. '*************************************************
  14. 'NOTE: Some of the following declarations and
  15. 'type definitions differ from those found in
  16. 'WIN32API.TXT
  17. Public gfDEBUG As Boolean
  18.  
  19. 'System, O/S Info
  20. Type SYSTEM_INFO
  21.         dwOemID As Long
  22.         dwPageSize As Long
  23.         lpMinimumApplicationAddress As Long
  24.         lpMaximumApplicationAddress As Long
  25.         dwActiveProcessorMask As Long
  26.         dwNumberOfProcessors As Long
  27.         dwProcessorType As Long
  28.         dwAllocationGranularity As Long
  29.         dwReserved As Long
  30. End Type
  31. Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
  32.  
  33. Type OSVERSIONINFO
  34.         dwOSVersionInfoSize As Long
  35.         dwMajorVersion As Long
  36.         dwMinorVersion As Long
  37.         dwBuildNumber As Long
  38.         dwPlatformId As Long
  39.         szCSDVersion As String * 128
  40. End Type
  41. Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  42. '  dwPlatformId defines:
  43. Public Const VER_PLATFORM_WIN32s = 0
  44. Public Const VER_PLATFORM_WIN32_WINDOWS = 1
  45. Public Const VER_PLATFORM_WIN32_NT = 2
  46. '  Name API's
  47. Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  48. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  49. '  Directory API's
  50. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  51. Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  52. Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  53. Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
  54. '  Drive Info API's
  55. Declare Function GetLogicalDrives Lib "kernel32" () As Long
  56. Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  57. Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  58. Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
  59. Public Const DRIVE_REMOVABLE = 2
  60. Public Const DRIVE_FIXED = 3
  61. Public Const DRIVE_REMOTE = 4
  62. Public Const DRIVE_CDROM = 5
  63. Public Const DRIVE_RAMDISK = 6
  64. 'Window API's
  65. Type RECT
  66.         Left As Long
  67.         Top As Long
  68.         Right As Long
  69.         Bottom As Long
  70. End Type
  71. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
  72. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  73.  
  74.  
  75.